'''19.09.2004
''Rotierende Linie - nur zum Spass
''Autor: Carsten
''Kontakt via SB-Homepage / Forum
''
cls
main
end

sub main()
randomize

init

ende=0
repeat
 linie
 if iy=0 then
  init
 fi
until ende

end


sub linie()
line x1+ix, y1+iy, x2-ix, y2-iy
if (x1+ix)<=(x2-ix) then iy = iy + 2
if (x1+ix)>(x2-ix) then iy = iy - 2
ix++:ix++
end

sub init()
ix=0
iy=0
x1=rnd*xmax
y1=rnd*(ymax/2)+(ymax/4)
l=rnd*(xmax/6)+(xmax/6)
x2=x1+l
y2=y1
color rnd*15+1
end'